home *** CD-ROM | disk | FTP | other *** search
/ Corbis Images Sampler - Red / RED.iso / pc / Interface / inter.dxr / 00016_movie script.ls < prev    next >
Encoding:
Text File  |  1999-12-21  |  1.0 KB  |  51 lines
  1. global oldTextcolor, gName, oldSound, oldText
  2.  
  3. on prepareMovie
  4.   the alertHook = script("alert")
  5.   oldSound = the soundLevel
  6.   set the keyDownScript to "doCommandKey"
  7. end
  8.  
  9. on alertHook me, err, msg
  10.   if msg contains "-34" then
  11.     continue()
  12.     return 1
  13.   end if
  14. end
  15.  
  16. on doCommandKey
  17.   if the commandDown and (the key = "q") then
  18.     go("quit sequence")
  19.   end if
  20. end
  21.  
  22. on startMovie
  23.   member("blurb").text = "     "
  24.   oldText = member("blurb").text
  25.   if oldSound > 5 then
  26.     set the soundLevel to 5
  27.   end if
  28.   if oldSound < 5 then
  29.     set the soundLevel to 5
  30.   end if
  31.   sprite(21).visible = 0
  32.   sprite(22).visible = 0
  33.   sprite(23).visible = 0
  34.   sprite(24).visible = 0
  35.   sprite(25).visible = 0
  36.   sprite(26).visible = 0
  37.   sprite(27).visible = 0
  38.   sprite(28).visible = 0
  39.   sprite(29).visible = 0
  40.   sprite(30).visible = 0
  41.   sprite(31).visible = 0
  42.   sprite(32).visible = 0
  43.   sprite(33).visible = 0
  44.   sprite(34).visible = 0
  45.   sprite(35).visible = 0
  46.   sprite(38).visible = 0
  47.   sprite(39).visible = 0
  48.   sprite(40).visible = 0
  49.   sprite(41).visible = 0
  50. end
  51.